Apple Reference & Presen…rary 6 (Reseller Edition)/Apple Ref. & Pres. Lib.v6.0.toast/pc/3-Presentations/Apple Demos/Training/HyperCard 2.0 Training/•HC 2.0-2/card_29737.txt

Text File | 1990-08-07 | 6.0 KB | 278 lines

-- card: 29737 from stack: in.0-2
-- bmap block id: 30031
-- flags: 0000
-- background id: 27044
-- name: designing
----- HyperTalk script -----
-- This handler performs the animation.
on doAnimation
  reset
  screenToDo
  wait 20
  repeat for 2
    set the hilite of btn "smallBtn" to not the hilite of btn "smallBtn"
  end repeat
  zoomRect the rect of btn "smallBtn", the rect of btn "screenMask"
  hide btn "screenMask"
  wait 40
  repeat for 2
    set the hilite of btn "smallBtn" to not the hilite of btn "smallBtn"
  end repeat
  zoomRect the rect of btn "smallBtn", the rect of btn "wrench"
  show btn "wrench"
  wait 20
  createObject "menu1"
  createObject "menu2"
  createObject "palette1"
  createObject "palette2"
  createObject "window1"
  wait 30
  putScreenBack
  wait 20
  show cd btn "See It Again"
end doAnimation

-- This handler resets the animation.
on reset
  lock screen
  hideObjects
  centerWrench
  hide btn "wrench"
  hide cd btn "See It Again"
  unlock screen with dissolve
end reset

----------------------------
-- These are mini animations used by doAnimation.
on hideObjects
  show btn "screenmask"
  hide btn "menu1"
  hide btn "menu2"
  hide btn "palette1"
  hide btn "palette2"
  hide btn "window1"
end hideObjects

on screenToDo
  repeat for 2
    repeat with n = 1 to 4
      set the icon of btn "thingshappen" to ("disturbance" & n)
      wait 10
    end repeat
  end repeat
  set the icon of btn "thingshappen" to 0
end screenToDo

on createObject objectName
  put the loc of btn objectName into theLoc
  subtract 10 from item 1 of theLoc
  add 10 to item 2 of theLoc
  set the loc of btn "wrench" to theLoc
  turnWrench
  show btn objectName
  centerWrench
  wait 30
end createObject

on turnWrench
  repeat for 2
    set the icon of btn "wrench" to "wrench1"
    wait 10
    set the icon of btn "wrench" to "wrench2"
    wait 10
    set the icon of btn "wrench" to "wrench3"
    wait 10
    set the icon of btn "wrench" to "wrench2"
    wait 10
  end repeat
  set the icon of btn "wrench" to "wrench2"
end turnWrench

on centerWrench
  set the rect of btn "wrench" to 252,104,291,142
end centerWrench

on putScreenBack
  repeat for 4
    set the hilite of btn "wrench" to not the hilite of btn "wrench"
  end repeat
  zoomRect the rect of btn "wrench", the rect of btn "smallBtn"
  hide btn "wrench"
  wait 40
  repeat for 2
    set the hilite of btn "screenmask" to not the hilite of btn "screenmask"
  end repeat
  zoomRect the rect of btn "screenmask", the rect of btn "smallBtn"
  lock screen
  hideObjects
  unlock screen
end putScreenBack



-- part 1 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=269 top=81 right=122 bottom=310
-- title width / last selected line: 0
-- icon id / first selected line: 23327 / 23327
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: menu1


-- part 4 (button)
-- low flags: 00
-- high flags: 0001
-- rect: left=227 top=83 right=166 bottom=324
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: screenmask


-- part 5 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=349 top=112 right=124 bottom=361
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: smallBtn


-- part 6 (button)
-- low flags: 00
-- high flags: 0000
-- rect: left=338 top=96 right=136 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: thingsHappen


-- part 8 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=244 top=84 right=121 bottom=278
-- title width / last selected line: 0
-- icon id / first selected line: 27949 / 27949
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: menu2


-- part 9 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=227 top=124 right=157 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 12586 / 12586
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: palette2


-- part 10 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=227 top=96 right=129 bottom=255
-- title width / last selected line: 0
-- icon id / first selected line: 16452 / 16452
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: palette1


-- part 11 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=263 top=115 right=147 bottom=300
-- title width / last selected line: 0
-- icon id / first selected line: 23073 / 23073
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: window1


-- part 12 (button)
-- low flags: 80
-- high flags: 0000
-- rect: left=252 top=104 right=142 bottom=291
-- title width / last selected line: 0
-- icon id / first selected line: 13645 / 13645
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: wrench


-- part 13 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=61 top=96 right=149 bottom=227
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 14
-- style flags: 256
-- line height: 15
-- part name:


-- part 14 (button)
-- low flags: 80
-- high flags: A004
-- rect: left=57 top=172 right=189 bottom=137
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 174
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: See It Again
----- HyperTalk script -----
-- This handler resets the animation and shows it again.
on mouseUp
  set cursor to none
  reset
  unlock screen
  doAnimation
end mouseUp



-- part contents for card part 13
----- text -----
HyperCard gives you the tools to simulate and prototype applications.